home *** CD-ROM | disk | FTP | other *** search
/ C++ für Kids / C++ for kids.iso / Buch / Monstr2c.cpp < prev    next >
C/C++ Source or Header  |  1999-01-29  |  4KB  |  126 lines
  1. //---------------------------------------------------------------------------
  2. #include <vcl\vcl.h>
  3. #pragma hdrstop
  4.  
  5. #include "Monstr2c.h"
  6. //---------------------------------------------------------------------------
  7. #pragma resource "*.dfm"
  8.  
  9. class TMonster
  10. {
  11. private:
  12.   String Name;
  13.   String Wesen;
  14.   String Typ;
  15. public:
  16.   void Erscheinen(void);
  17.   TMonster (void);
  18.   TMonster (String N, String W);
  19.   TMonster (String N, String W, String T);
  20. };
  21.  
  22. class TGMonster : public TMonster
  23. {
  24. public:
  25.   TGMonster (void);
  26.   TGMonster (String N, String W);
  27.   TGMonster (String N, String W, String T);
  28. };
  29.  
  30. class TSMonster : public TMonster
  31. {
  32. public:
  33.   TSMonster (void);
  34.   TSMonster (String N, String W);
  35.   TSMonster (String N, String W, String T);
  36. };
  37.  
  38. //---------------------------------------------------------------------------
  39.  
  40. TMonster  *Frank;
  41. TGMonster *Albert;
  42. TSMonster *Sigmund;
  43. TForm1 *Form1;
  44.  
  45. //---------------------------------------------------------------------------
  46. __fastcall TForm1::TForm1(TComponent* Owner)
  47.     : TForm(Owner)
  48. {
  49. }
  50. //---------------------------------------------------------------------------
  51. TMonster::TMonster (void)
  52. {
  53.   Name = "Niemand"; Wesen = "monstr÷s"; Typ = "Monster";
  54. }
  55. //---------------------------------------------------------------------------
  56. TMonster::TMonster (String N, String W)
  57. {
  58.   Name = N; Wesen = W; Typ = "Monster";
  59. }
  60. //---------------------------------------------------------------------------
  61. TMonster::TMonster (String N, String W, String T)
  62. {
  63.   Name = N; Wesen = W; Typ = T;
  64. }
  65. //---------------------------------------------------------------------------
  66. TGMonster::TGMonster (void) : TMonster ()
  67. {
  68. }
  69. //---------------------------------------------------------------------------
  70. TGMonster::TGMonster (String N, String W)
  71.   : TMonster (N, W)
  72. {
  73. }
  74. //---------------------------------------------------------------------------
  75. TGMonster::TGMonster (String N, String W, String T)
  76.   : TMonster (N, W, T)
  77. {
  78. }
  79. //---------------------------------------------------------------------------
  80. TSMonster::TSMonster (void) : TMonster ()
  81. {
  82. }
  83. //---------------------------------------------------------------------------
  84. TSMonster::TSMonster (String N, String W)
  85.   : TMonster (N, W)
  86. {
  87. }
  88. //---------------------------------------------------------------------------
  89. TSMonster::TSMonster (String N, String W, String T)
  90.   : TMonster (N, W, T)
  91. {
  92. }
  93. //---------------------------------------------------------------------------
  94. void TMonster::Erscheinen (void)
  95. {
  96.   Form1->Label1->Caption = "Name:    " + Name;
  97.   Form1->Label2->Caption = "Wesen:    " + Wesen;
  98.   Form1->Label3->Caption = "Typ:    " + Typ;
  99. }
  100. //---------------------------------------------------------------------------
  101. void __fastcall TForm1::FormCreate(TObject *Sender)
  102. {
  103.   Frank = new TMonster
  104.     ("Frankie", "ungew÷hnlich", "Monster");
  105.   Albert = new TGMonster
  106.     ("Berti", "nachdenklich", "GeistesMonster");
  107.   Sigmund = new TSMonster
  108.     ("Sigi", "mitfⁿhlend", "SeelenMonster");
  109. }
  110. //---------------------------------------------------------------------------
  111. void __fastcall TForm1::Button1Click(TObject *Sender)
  112. {
  113.   Frank->Erscheinen ();
  114. }
  115. //---------------------------------------------------------------------------
  116. void __fastcall TForm1::Button2Click(TObject *Sender)
  117. {
  118.   Albert->Erscheinen ();
  119. }
  120. //---------------------------------------------------------------------------
  121. void __fastcall TForm1::Button3Click(TObject *Sender)
  122. {
  123.   Sigmund->Erscheinen ();
  124. }
  125. //---------------------------------------------------------------------------
  126.